home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mm_1_2.lha / MM / Rexx / MM_CRCFile.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-30  |  266b  |  18 lines
  1. /*
  2. ** This script shows how find the CRC-32 of a file
  3. */
  4.  
  5. address 'MAILMANAGER'
  6.  
  7. file = 'SYS:'
  8.  
  9. MM_FileReq 'file'
  10.  
  11. if RC = 0 THEN DO
  12.     MM_CRCFile file 'crc'
  13.     text = 'Il CRC-32 di b' file 'nè:b' crc
  14.     gadget = "*_Ok"
  15.     MM_Requester 'CRC-32' 'text' 'gadget'
  16.     END
  17. exit
  18.